* lisp/arc-mode.el (archive-get-descr): Use default mode if needed.

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 69a159a84a80c1e2c72597396be47582de8a6d9e..3516af68fc82e2786aadb50f08280df92c25db6e 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -646,7 +646,7 @@ Does not signal an error if optional argument NOERROR is non-nil."
              (< no (length archive-files)))
        (let ((item (aref archive-files no)))
          (if (and (archive--file-desc-p item)
-                  (let ((mode (archive--file-desc-mode item)))
+                  (let ((mode (or (archive--file-desc-mode item) 0)))
                     (zerop (logand 16384 mode))))
              item
            (if (not noerror)